home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / earth_ss / earth.dpr next >
Text File  |  1996-09-15  |  589b  |  29 lines
  1. program Earth;
  2.  
  3. {>
  4.   The following is required to give a name to your screen saver. This
  5.   name will appear in the Configuration Panel Screen Savers pick list.
  6.   All the rest is generated by Delphi.
  7. }
  8.  
  9. {$D SCRNSAVE Earth}
  10.  
  11. uses
  12.   Forms,
  13.   Earth01 in 'EARTH01.PAS' {f_ScreenSaver};
  14.  
  15. {$R *.RES}
  16.  
  17. begin
  18.   {> Make sure the program is not executed twice in screen saver mode
  19.   }
  20.   if (HPrevInst = 0) or (ParamStr (1) <> '/s') then
  21.   begin
  22.     Application.Title := 'Earth';
  23.     Application.CreateForm(Tf_ScreenSaver, f_ScreenSaver);
  24.   Application.Run;
  25.   end ;
  26. end.
  27.  
  28.  
  29.